PC World Komputer 1997 November/Pcwk1197.iso/LOTUS/Eng-ins/SMASTERS/APPROACH/DB2WWW.MPR/SCRIPT/ApproachDoc/WWW Assistant/Body/cbxRptAsForm.s

Null Bytes Alternating | 1997-01-09 | 2KB | 30 lines

'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Checkbox, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As CHECKBOX
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Checkbox, X As Long, Y As Long, Flags As Long)
    On Error Resume Next
    'grey out the listbox for forms if user only wants to use the report
    If source.value = "1" Then
        source.lbformsP2.background.color.setrgb color_30_gray
        source.lbformsP2.font.color.setrgb color_12_gray
        source.lbformsP2.text=""
        source.lbformsP2.readonly = True
    Else
        source.lbformsP2.background.color.setrgb color_white
        source.lbformsP2.font.color.setrgb color_black
        source.lbformsP2.readonly = False
    End If
    Err = 0
End Sub